;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Technoid-IRC Managment Script                         ;;
;; Version 0.3 BETA                                      ;;
;; Copyright 2010 Technoid-IRC.net                       ;;
;; Project Homepage: http://code.google.com/p/technoid/  ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

alias technoid_msg {
  if ($network == Technoid-IRC) {
    if ($1 == -swear) {
      say $2 $+ , please watch your language. We want everyone to feel welcome on this channel/network.
    }
    elseif ($1 == -caps) {
      say $2 $+ , please do not use caps, they are thought of as shouting.
    }
    elseif ($1 == -repeat) {
      say $2 $+ , please do not repeat yourself. By posting a message again won't mean that people will respond to your question quicker.
    }
    elseif ($1 == -flood) {
      say $2 $+ , please do not flood. It will result in someone kicking your from the channel or being killed/banned from the network.
    }
    elseif ($1 == -language) {
      say $2 $+ , sorry but this channel is English speaking only. Please only speak in English.
    }
    elseif ($1 == -spam) {
      say $2 $+ , do not spam in this channel, it will result in someone kicking you.
    }
    elseif ($1 == -attack) {
      say $2 $+ , feel free to debate a users opinion but never attack the person making it.
    }
    elseif ($1 == -bored) {
      say $2 $+ , if you are bored then leave the channel. There is plently of other things to do on the Internet.
    }
    elseif ($1 == stats) {
      say $2 $+ , you can find the network stats at http://www.technoid-irc.net/stats/
    }
    elseif ($1 == staff) {
      say $2 $+ , you can find a list of Technoid-IRC staff at http://www.technoid-irc.net/staff/
    }
    elseif ($1 == rules) {
      say $2 $+ , you can find the network rules at http://www.technoid-irc.net/rules/
    }
    elseif ($1 == servers) {
      say $2 $+ , you can find a list of Technoid-IRC servers at http://www.technoid-irc.net/servers/
    }
    elseif ($1 == forums) {
      say $2 $+ , you can find the network forums at http://www.technoid-irc.net/forum/
    }
    elseif ($1 == site) {
      say $2 $+ , you can find the network site at http://www.technoid-irc.net/
    }
    elseif ($1 == help) {
      say $2 $+ , you can get IRC related help in #help or on the forums at http://www.technoid-irc.net/forums/
    }
    elseif ($1 == script) {
      say $2 $+ , 
    }
    elseif ($1 == otherhelp) {
      if ($chan == #help) {
        say $2 $+ , sorry but #help is for network related help only. Try asking your question in another channel, such as #Technoid
      }
      else {
        echo 'Non-network Help' can only be sent in #help
      }
    }
    elseif ($1 == talk) {
      say $2 $+ , sorry but #help is for network related help only. Please keep chat to another channel, such as #Technoid
    }
    elseif ($1 == twitter) {
      say $2 $+ , you can get the latest Technoid-IRC news by following http://twitter.com/TechnoidIRC on Twitter
    }
  }
  else {
    echo The message wasn't sent because the channel isn't on Technoid-IRC
  }
}

menu nicklist {
  Technoid-IRC Script
  .Notice:/notice $1 $$?="Message here"
  .PM:/query $1 $$?="Message here"
  .Warnings
  ..Swearing/Language:technoid_msg -swear $1
  ..Caps:technoid_msg -caps $1
  ..Repeat:technoid_msg -repeat $1
  ..Flooding:technoid_msg -flood $1
  ..English:technoid_msg -language $1
  ..Spam:technoid_msg -spam $1
  ..Attack:technoid_msg -attack $1
  ..Bored:technoid_msg -bored $1
  .Mute
  ..Mute User - 1 Minutes:/mute $1 1
  ..Mute User - 5 Minutes:/mute $1 5
  ..Mute User - 15 Minutes:/mute $1 15
  ..Mute User - 40 Minutes:/mute $1 30
  ..Mute User - Custom Minutes:/mute $1 $$?="Enter time (in minutes) to ban for:"
  .Kick
  ..Kick:/kick # $$1 You have been kicked from the channel by $me
  ..Kick Custom:/kick # $$1  $$?="Kick Message:"
  ..Kick Other
  ...Flooding:/kick # $$1 Please don't flood.
  ...Spamming:/kick # $$1 Spamming off topic links isn't allowed in this channel. Please only post links that are relevant to the topic.
  ...Attack:/kick # $$1 Please do not personally attack users anywhere on Technoid-IRC.
  ...Attitude:/kick # $$1 Your attitude is not conductive to the desired environment. Don't rejoin until you have thought about what you have said.
  ...Repeating:/kick # $$1 We already heard you! Repeating yourself is useless and won't make people answer you quicker.
  .Ban
  ..Ban:/cs ban # $$1 You have been banned from the room.
  ..Ban Custom:/cs ban # $$1 $$?="Kick Message:"
  ..Ban Other
  ...Flooding:/cs ban # $$1 Please don't flood.
  ...Spamming:/cs ban # $$1 Spamming off topic links isn't allowed in this channel. Please only post links that are relevant to the topic.
  ...Attack:/cs ban # $$1 Please do not personally attack users anywhere on Technoid-IRC.
  ...Attitude:/cs ban # $$1 Your attitude is not conductive to the desired environment. Don't rejoin until you have thought about what you have said.
  ...Repeating:/cs ban # $$1 We already heard you! Repeating yourself is useless and won't make people answer you quicker.
  ..Ban:/ban # $$1 2
  ..Temp Ban
  ...30 seconds:/ban -u30 $$1 2 | /kick # $$1 You are banned 30 seconds!  
  ...60 seconds:/ban -u60 $$1 2 | /kick # $$1 You are banned 60 seconds!
  ...5 Minutes:/ban -u300 $$1 2 | /kick # $$1 You are banned 5 minutes!
  ...15 Minutes:/ban -u900 $$1 2 | /kick # $$1 You are banned 15 minutes!
  ...Custom Ban:/ban -u $+ $$?="Ban Time?" $$1 2 | /kick # $$1 You are banned for $$ seconds!
  .Channel Access
  ..Access
  ...9999 (Founder/~):/cs access # add $1 9999 | /cs sync #
  ...10 (SuperOp/ $+ $chr(38) $+ ):/cs access # add $1 10 | /cs sync #
  ...5 (Op/@):/cs access # add $1 5 | /cs sync #
  ...4 (Hop/%):/cs access # add $1 4 | /cs sync #
  ...3 (Voice/+):/cs access # add $1 3 | /cs sync #
  ...Custom:/cs access # add $1 $$?="Access Level" | /cs sync #
  ..XOP
  ...SOP:/cs SOP # add $1 | /cs sync #
  ...OP:/cs AOP # add $1 | /cs sync #
  ...HOP:/cs HOP # add $1 | /cs sync #
  ...VOP:/cs VOP # add $1 | /cs sync #
  ...Custom:/cs access # add $1 $$?="Access Level" | /cs sync #
}
menu query,nicklist {
  Technoid-IRC Script
  .Help
  ..Network Stuff
  ...Stats:technoid_msg stats $1
  ...Staff:technoid_msg staff $1
  ...Rules:technoid_msg rules $1
  ...Server's:technoid_msg servers $1
  ...Forum's:technoid_msg forums $1
  ...Site:technoid_msg site $1
  ..User Stuff
  ...IRC Help:technoid_msg help $1
  ...Management Script:technoid_msg script $1
  ...Non-network Help:technoid_msg otherhelp $1
  ...Help Channel Talk:technoid_msg talk $1
  ..Stay Up-To Date Links
  ...Twitter:technoid_msg twitter $1
}
menu channel {
  Technoid-IRC Script
  .Common ChanServ Commands
  ..Info:/cs info $$?="Enter Channel:" all
  ..Register:/cs register $$?="Enter Channel:" $$?*="Channel Password" $$?="Channel Description"
  ..$iif(r !isincs $gettok($chan(#).mode,1,32),Register This Channel):/cs register # $$?*="Channel Password" $$?="Channel Description"
  ..Change Founder:/cs set $$?="Enter channel" founder $$?="Enter New Founder"
  ..Change Successor:/cs set $$?="Enter channel" successor $$?="Enter nick"
  ..Change Password:/cs set $$?="Enter channel" passwd $$?*="Enter old password" $$?*="Enter new password"
  ..Change Description:/cs set $$?="Enter channel" desc $$?="Enter new description"
  ..Change URL:/cs set $$?="Enter Channel" URL $$?="Enter new URL"
  ..Change E-mail:/cs set $$?="Enter Channel" email $$?="Enter new e-mail address"
  ..Change Entry Message:/cs set $$?="Enter Channel" ENTRYMSG $$?="Message"
  ..XOP
  ...On:/cs set # xop on
  ...Off:/cs set # xop off
  ..Restricted
  ...On:/cs set # RESTRICTED on
  ...Off:/cs set # RESTRICTED off
  ..Peace
  ...On:/cs set # PEACE on
  ...Off:/cs set # PEACE off
  ..Secure
  ...On:/cs set # SECURE on
  ...Off:/cs set # SECURE off
  ..Secure ops
  ...On:/cs set # SECUREOPS on
  ...Off:/cs set # SECUREOPS off
  ..Secure Founder
  ...On:/cs set # SECUREFOUNDER on
  ...Off:/cs set # SECUREFOUNDER off
  ..Topic lock
  ...On:/cs set # TOPICLOCK on
  ...Off:/cs set # TOPICLOCK off
  .Common BotServ Commands
  ..Bot List:/bs botlist
  ..Assign Bot:/bs assign # $$?="Bot Name"
  ..Unassign bot:/bs unassign #
  ..Say:/bs say # $$?="Message"
  ..Act:/bs act # $$?="Message"
  ..Dont Kick Ops
  ...On:/bs set # DONTKICKOPS on
  ...Off:/bs set # DONTKICKOPS off
  ..Dont Kick Voices
  ...On:/bs set # DONTKICKVOICES on
  ...Off:/bs set # DONTKICKVOICES off
  ..Greet
  ...On:/bs set # GREET on
  ...Off:/bs set # GREET off
  ..Fantasy
  ...On:/bs set # FANTASY on
  ...Off:/bs set # FANTASY off
  ..Symbiosis
  ...On:/bs set # SYMBIOSIS on
  ...Off:/bs set # SYMBIOSIS off
  ..Kicks
  ...Bolds
  ....On:/bs kick # BOLDS on
  ....Off:/bs kick # BOLDS off
  ...Bad Words
  ....On:/bs kick # BADWORDS on
  ....Off:/bs kick # BADWORDS off
  ...Caps
  ....On:/bs kick # CAPS on
  ....Off:/bs kick # CAPS off
  ...Colors
  ....On:/bs kick # COLORS on
  ....Off:/bs kick # COLORS off
  ...Flood
  ....On:/bs kick # FLOOD on
  ....Off:/bs kick # FLOOD off
  ...Repeat
  ....On:/bs kick # REPEAT on
  ....Off:/bs kick # REPEAT off
  ...Reverses
  ....On:/bs kick # REVERSES on
  ....Off:/bs kick # REVERSES off
  ...Underlines
  ....On:/bs kick # UNDERLINES on
  ....Off:/bs kick # UNDERLINES off
  .Common NickServ Commands
  ..Auto Join
  ...Add Channel:/ns ajoin add #
  ...Remove Channel:/ns ajoin del #
  ...List Auto Join:/ns ajoin list
  ..Change URL:/ns set URL $$?="Enter new URL"
  ..Change E-mail:/ns set email $$?="Enter new e-mail address"
  ..Change Greet:/ns set greet $$?="Enter new greet message"
  ..Update:/ns update
  .Common HostServ Commands
  ..Request a vHost:/join #vhosts
  ..Turn vHost on:/hs on | /ns update
  ..Turn vHost off:/hs off | /ns update
  ..Group:/hs group | /ns update
}
